Gender Meme
Graphs of gender
Data
Prepare Data
# Prep data
#myCaption <- "derekmichaelwright.github.io/dblogr/"
d1 <- read_xlsx("data_gender.xlsx", "danny")
d2 <- read_xlsx("data_gender.xlsx", "elon") %>%
mutate(Year = factor(Year, levels = rev(Year)))Plots
Danny’s Tweet
# Plot
mp <- ggplot(d1, aes(x = Year, y = Value)) +
geom_line(color = "steelblue", lwd = 2, alpha = 0.8) +
scale_x_continuous(breaks = c(seq(1960, 2020, by = 10), 2025),
minor_breaks = seq(1960, 2025, by = 5)) +
theme_agData() +
labs(title = "Number of Genders", y = "# of Genders", x = NULL)
ggsave("gender_01.png", mp, width = 6, height = 4)